home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / ddmoduls.lha / dd_Modules / dd_hardware / dd_ciatimertest.e < prev   
Text File  |  1995-04-01  |  945b  |  47 lines
  1. -> dd_ciatimertest.e - © 1994-1995 by Digital Disturbance. Freeware.
  2. -> Programmed by Leon Woestenberg (Email: leon@stack.urc.tue.nl)
  3.  
  4. MODULE 'exec/nodes'
  5. MODULE 'exec/interrupts'
  6. MODULE 'utility/tagitem'
  7. MODULE 'hardware/cia'
  8. MODULE 'tools/debug'
  9.  
  10. MODULE '*dd_ciatimer'
  11. -> MODULE '*dd_ciatimer_v40'
  12.  
  13. PROC main()
  14.   DEF cia:PTR TO ciatimer,is:is,frequency
  15.   is::ln.succ:=NIL
  16.   is::ln.pred:=NIL
  17.   is::ln.type:=NT_INTERRUPT
  18.   is::ln.pri:=0
  19.   is::ln.name:='dd_ciatimertest'
  20.   is.data:=NIL
  21.   is.code:={hello}
  22.  
  23.   NEW cia
  24.   IF cia.new([
  25.               DDA_CIA_UseCIAA,TRUE,
  26.               DDA_CIA_UseTimerA,FALSE,
  27.               DDA_CIA_FallBack,TRUE,
  28.               DDA_CIA_Interrupt,is,
  29.               TAG_DONE
  30.              ])
  31.  
  32.     cia.set([DDA_CIA_MicroSecs,500,TAG_DONE])
  33.     cia.start()
  34.     Delay(100)
  35.     cia.stop()
  36.   ENDIF
  37.   END cia
  38. ENDPROC
  39.  
  40. hello:
  41.   BCHG.B #CIAB_LED,$bfe001                    /* lighten power LED        */
  42.   kputstr('.')
  43.   RTS
  44.  
  45.  
  46.  
  47.